Apple II Magazines (PO)/Nibble Volume 11, No. 09 (1990-09)(MindCraft Publishing)(Side A).zip/Nibble Volume 11, No. 09 (1990-09)(MindCraft Publishing)(Side A).po/MISSILE.HEAD.bas

BASIC Source File | 1996-12-24 | 291b | 1 lines

10  DIM X(46): DIM Y(46): DIM Z(46): HGR2 : HCOLOR= 3: FOR T = 1 TO 45:X(T) = T:Z(T) = (X(T) ^2)/15: NEXT : FOR R = .1 TO 6.3  STEP .1: FOR T = 1 TO 45:X(T) =  COS(R) *T:Y(T) =  SIN(R) *T: HPLOT X(T) *.866 +Y(T) *.866 +140,X(T) *.499 -Y(T) *.499 +Z(T) +10: NEXT : NEXT : GET G$: TEXT : HOME